Kapalı. Bu soru Yığın Taşması yönergelerini karşılamıyor. Şu anda cevapları kabul etmiyor. Bu soruyu geliştirmek mi istiyorsunuz? Yığın Taşması için konuya uygun olması için soruyu güncelleyin. 4 yıl önce kapalı. Bu soruyu geliştirin Bir kullanıcı tarafından seçilen birden çok metin dosyasını işleyen bir Shiny uygulaması oluşturuyorum. Çıktı, milyonlarca satır ve onlarca sütun içeren devasa bir veri çerçevesidir. Şimdi, bir kullanıcının satırları etkileşimli olarak filtrelemesine, sütunları seçmesine ve sütunları özetlemesine izin vermekle ilgileniyorum (ortalama, sd, maks, min, toplam vb. Gibi işlevler listesinden seçim yaparak). Sonuç, kullanıcı seçimlerine göre verileri özetleyen daha küçük bir veri çerçevesi olacaktır - temelde dplyr kitaplığının temel bir işlevini uygulayan bir GUI oluşturmam gerekiyor. Genel olarak, bir grup GUI öğesini manuel olarak oluşturarak ve bunları bir dizi dplyr komutuyla bir sunucu işlevine besleyerek bunu nasıl yapacağımı biliyorum. Bu oldukça standart bir işlevsellik (bir veri çerçevesini filtreleyen ve özetleyen GUI) gibi göründüğünden, onu sıfırdan oluşturmaya başlamadan önce, "kullanıma hazır" bir şey olup olmadığını merak ediyorum, OLDUĞU GİBİ veya başlangıç noktam olarak kullanabileceğim .
2021-02-22 08:14:56
RpivotTable'ın tam olarak peşinde olduğunuz şey olmadığını söylediğinizi biliyorum, ancak bence ağır işlerin bir kısmını yapacak şekilde yapılandırılabilir.
İşte bir örnek (işleme için rpivotTable kullanarak, data.frame'i göstermek için DT, iç HTML'yi DOM'dan ayrıştırmak için yeniden araştırın, tablo nesnesini istemci tarafından geçirmek için daha iyi bir veri formatı olabilir, ancak bu kavramın kanıtıdır ):
ui.R
kütüphane (parlak)
kütüphane (DT)
kitaplık (rpivotTable)
FullPage <- liquidPage (
DT :: dataTableOutput ('aSummaryTable'),
rpivotTableOutput ('SONUÇLAR')
)
Tam sayfa
server.R:
kütüphane (parlak)
kitaplık (rpivotTable)
kütüphane (DT)
kütüphane (rvest)
function (girdi, çıktı, oturum) {
# Bazı örnek veriler yapın
qbdata <- reaktif ({
expand.grid (MEKTUPLAR, 1: 3)
})
# HTML'yi temizleyin ve reaktif olarak saklayın
Summarydf <- eventReactive (girdi $ myData, {
$ myData%>% girdi
read_html%>%
html_table (dolgu = DOĞRU)%>%
# Bir rpivotTable'da iki tablo olduğu ortaya çıktı, ikincisini istiyoruz
. [[2]]
})
# df'yi DT olarak göster :: datatable
çıktı $ aSummaryTable <- DT :: renderDataTable ({
datatable (Summarydf (), rownames = FALSE)
})
# Yapılandırma yenilendiğinde, tablonun içeriği ile geri arayın
çıktı $ SONUÇLAR <- renderRpivotTable ({
rpivotTable (
qbdata (),
onRefresh =
htmlwidgets :: JS ("function (config) {
Shiny.onInputChange ('myData', document.getElementById ('RESULTS'). İnnerHTML);
} ")
)
})
}
|
Aradığın cevap değil mi? R dplyr shiny etiketli diğer sorulara göz atın veya kendi sorunuzu sorun.